home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
dev
/
amos
/
APro_GadTools.lha
/
GadTools
/
Beispiele
/
Lores
/
Beispiel5_ToggleButtons.ASC
< prev
next >
Wrap
Text File
|
1995-10-09
|
1KB
|
61 lines
' *****************************************
' * Beispiel-Listing Nr.5 (ToggleButtons) *
' * ------------------------------------- *
' * evtl. muss noch der pfad in der *
' * letzten zeile geändert werden, *
' * damit das programm die GadTools *
' * finden und beiladen kann. *
' *****************************************
'
'
' **************************************
' Eine Arbeitsmaske erstellen.
' **************************************
'
'
_SCREEN_OPEN[0,0]
_MAKE_MASK[30,30,286,220,2,1,0]
'
'
' **************************************
' Und nun den Text aufbauen.
' **************************************
'
'
Ink 2,0
Text 38,60,"Dies ist Beispiel-Listing Nr.5"
Text 38,68,"------------------------------"
Text 38,80," Eine Demonstration für"
Text 38,90," ToggleButtons!"
Text 38,110,"Zum beenden auf EXIT klicken!!"
Text 115,135,"ToggleButton"
'
'
' **************************************
' Ein ToggleButton & ein PushButton.
' **************************************
'
'
_TOGGLEBUTTON[1,128,145,2,1,0,2,1," TOGGLE "]
_PUSHBUTTON[1,135,190,2,1,0,2," EXIT "]
'
'
' **************************************
' Warten bis Push-Button geklickt.
' **************************************
'
'
Repeat
_TOGGLEBUTTON_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct
'
'
' **************************************
' Das GadTools.Include beiladen.
' **************************************
'
'
Include "df0:GadTools.Inc"